home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 167 / 167.d81 / b.ls code (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1998-01-01  |  8.8 KB  |  333 lines
  1. 30 poke53371,0:poke788,49
  2. 40 poke56,56:clr:tq=ti
  3. 42 dimbs%(301),bw%(301),z$(10)
  4. 50 dv=peek(186):ifdv<8thendv=11
  5. 60 poke53281,0:poke53280,0:poke53272,23:print"[147]":gosub60000
  6. 70 sys57812"ls code font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  7. 80 sys57812"ls.mouse c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  8. 90 sys57812"ls.codifier",dv,0:poke780,0:poke781,0:poke782,156:sys65493
  9. 100 sys57812"ls.searcher",dv,0:poke780,0:poke781,0:poke782,152:sys65493
  10. 110 dimmn$(30),x1%(30),x2%(30),y1%(30),y2%(30)
  11. 120 ml=192*256:mv=ml+111:pokemv,158:v=53248:pokemv+10,160
  12. 130 bu%=64*256:en=bu%:cd=156*256:sr=152*256
  13. 140 sysml:sysml+18,0,38,0,24
  14. 150 sysml+6:pokev+21,0
  15. 160 pokev+39,7
  16. 170 sp$="                                       "
  17. 180 mn$(1)=" all about the[157][157][157][157][157][157][157][157][157][157][157][157][157]loadstar code"
  18. 190 mn$(2)="  search for[157][157][157][157][157][157][157][157][157][157]a key word"
  19. 200 mn$(3)="   theory of[157][157][157][157][157][157][157][157][157][157][157][157]the bible code"
  20. 210 mn$(4)=" convert/load[157][157][157][157][157][157][157][157]files"
  21. 220 mn$(5)="     drive[157][157][157][157][157][157][157][157]navigation"
  22. 230 mn$(6)="    quit to[157][157][157][157][157][157]basic"
  23. 240 mn$(7)=" source drive"
  24. 250 mn$(8)=" target drive"
  25. 260 mn$(9)="  [146][][157][157]<>"
  26. 270 mn$(10)="  [][157][157]<>"
  27. 280 mn$(11)="  [146][][157][157]<>"
  28. 290 mn$(12)="  [][157][157]<>"
  29. 300 mn$(13)=" disk command  [152]  [155]"
  30. 310 mn$(14)=" main[157][157][157][157]menu"
  31. 320 mn$(16)="   load file[157][157][157][157][157][157][157][157][157]and codify
  32. 330 mn$(17)[178]"    load acmdcmdcmdcmdcmdcmdcmdcmdcmdcodified file
  33. 340 mn$(18)="    save a[157][157][157][157][157][157][157][157][157]codified file
  34. 350 mn$(19)[178]"list     maincmdcmdcmdcmdmenu
  35. 360 mn$(21)=" list to[157][157][157][157][157][157][157]printer"
  36. 370 mn$(22)=" list to[157][157][157][157][157][157]screen"
  37. 380 mn$(23)="   main[157][157][157][157]menu"
  38. 390 mn$(24)="[155] continue"
  39. 400 mn$(25)="  go back
  40. 408 fo$[178]"list\^":bk$[178]"list(NULL)_"
  41. 410 [129]i[178]1[164]25:[135]x1%(i),x2%(i),y1%(i),y2%(i)
  42. 420 [158]ml[170]15,i,x1%(i),x2%(i),y1%(i),y2%(i)
  43. 430 [130]
  44. 440 [131] 2,18,10,13,  21,37,10,13
  45. 450 [131] 2,18,15,18,  21,37,15,18
  46. 460 [131] 2,18,20,23,  21,37,20,23
  47. 470 [131] 2,18,10,13,  21,37,10,13
  48. 480 [131] 2,9,15,18,   11,18,15,18
  49. 490 [131] 21,28,15,18, 30,37,15,18
  50. 500 [131] 2,28,20,23,  30,37,20,23
  51. 510 [131] 18,25,21,21
  52. 520 [131] 2,18,10,13,  21,37,10,13
  53. 530 [131] 2,18,15,18,  21,37,15,18
  54. 540 [131] 2,37,20,23
  55. 550 [131] 1,12,20,23,  14,25,20,23
  56. 560 [131] 27,38,20,23
  57. 570 [131] 2,18,22,24,  21,37,22,24
  58. 580 sd[178]dv:td[178]dv:dq[178]0:dc[178]sd:f$[178]"":fi$[178]""
  59. 582 [139]ti[179]tq[170]200[167]582
  60. 584 [153]"load":[151]53272,31
  61. 590 [158]ml[170]30,1,38,0,8,0,16[170]12
  62. 600 [153]"print#"[163]17)"t h e
  63. 610 print"[174]   [176][192][174] [176][192][174] [174][192][174] [176][192][174] [176][178][174] [176][192][174] [176][192][174]
  64. 620 [153]"(NULL)   (NULL) (NULL) -tan< (NULL) (NULL) /tan^  (NULL)  -tan< -=exp
  65. 630 print"[173][192][189] [173][192][189] [189] [173] [189][192][189] [173][192][189]  [177]  [189] [173] [189][173][192][189]
  66. 640 [153][163]10)"ortantan^ ortantan^ ^tantan^ ortantan^
  67. 650 printtab(10)"[221]    [221]  [221] [221]  [221] [171][192][179]
  68. 660 [153][163]10)"/tantanexp /tantanexp exptantanexp /tantanexp
  69. 670 c=15
  70. 680 fori=1to6
  71. 690 sysml+30,x1%(i),x2%(i),y1%(i),y2%(i),32,16+15
  72. 700 poke646,c:sysml+12,x1%(i)+1,y1%(i)+1,mn$(i)
  73. 710 next
  74. 720 sysml+39,240
  75. 730 pokemv+1,6:pokev+21,1
  76. 740 :
  77. 750 :rem main menu loop
  78. 760 :
  79. 770 sysml+9
  80. 780 ifcr%=0then770
  81. 790 oncr%gosub1680,850,1780,1880,2520,2980
  82. 800 sysml+42,240
  83. 810 goto730
  84. 820 :
  85. 830 :rem search
  86. 840 :
  87. 850 sysml+30,0,39,10,24,32,0
  88. 860 sysml+30,5,34,10,18,160,16+15
  89. 870 sysml+12,10,12,"[155]file    : "+mid$(fi$,3)
  90. 880 sysml+12,10,13,"[155]keyword : [146]          "
  91. 890 sysml+12,10,14,"matches :          "
  92. 900 sysml+12,10,15,"start   :        "
  93. 910 sysml+12,10,16,"distance:        "
  94. 920 sysml+12,20,13,""
  95. 930 pokev+21,0:poke198,0:sysml+51,1,1,9:pokemv+1,14
  96. 932 le%=len(w$):ifle%=0thenreturn
  97. 942 syssr,w$,bu%,en
  98. 944 sp%=peek(sr+5)+peek(sr+6)*256:ht%=peek(sr+3)+peek(sr+4)*256
  99. 945 ifht%=300andsp%=0thensp%=300
  100. 946 ifht%-sp%thenforjj=sp%+1toht%:bs%(jj)=en-(bs%(jj)-bu%):next
  101. 948 sysml+39,232
  102. 950 sysml+42,232
  103. 960 print"[155]";
  104. 1180 fori=21to23:sysml+30,x1%(i),x2%(i),y1%(i),y2%(i),160,16+15
  105. 1190 sysml+12,x1%(i)+1,y1%(i)+1,mn$(i)
  106. 1200 next
  107. 1210 pokemv+1,23:pokev+21,1
  108. 1220 sysml+9
  109. 1222 ifl2%thenifcy%=13thenif(cx%>19andcx%<29)then880
  110. 1230 ifcr%<21orcr%>23then1220
  111. 1240 ifcr%=23thenreturn
  112. 1250 ifcr%=22then1480
  113. 1260 :
  114. 1270 :rem printer
  115. 1280 :
  116. 1290 pokev+21,0
  117. 1292 sysml+30,0,39,10,24,32,0
  118. 1300 sysml+30,8,32,10,14,160,16+15
  119. 1310 sysml+12,12,12,"printing...
  120. 1320 [159]4,4,0:[160]4:[139]st[178][171]128[167]950
  121. 1330 [159]4,4,0
  122. 1332 [152]4,,,"file: "fi$,"keyword: "w$:[152]4
  123. 1340 [152]4,,;:[129]i[178]0[164]2:[152]4,"  match  start  dist.  ";:[130]:[152]4
  124. 1350 [152]4,,;:[129]i[178]0[164]2:[152]4,"  -----  -----  -----  ";:[130]:[152]4
  125. 1360 [152]4,,;:[129]i[178]1[164]ht%
  126. 1370 [152]4,"  ";i;[200](sp$,5[171][195]([196](i)));
  127. 1380 [152]4,bs%(i)[171]bu%;[200](sp$,6[171][195]([196](bs%(i)[171]bu%)));
  128. 1390 [152]4,bw%(i);[200](sp$,7[171][195]([196](bw%(i))));
  129. 1400 [139]i[173]3[178][181](i[173]3)[167][152]4:[152]4,,;
  130. 1410 [139]i[178]162[167][129]j[178]0[164]7:[152]4:[130]:[152]4,,;
  131. 1420 [130]:[152]4
  132. 1430 [160]4:[151]186,dv
  133. 1440 [137]950
  134. 1450 :
  135. 1460 :[143] screen
  136. 1470 :
  137. 1480 [153]"listloadmatch  start  dist. match  start  dist.wait"
  138. 1490 i[178]0
  139. 1500 i[178]i[170]1:[139]i[177]ht%[167]1550
  140. 1502 ii[178]i[175]1
  141. 1504 [153]"";:[139]i[177]sp%[167][153]"cont";
  142. 1510 [153][163]0[171]20[172](ii[178]0))i;
  143. 1512 [153][163]6[171]20[172](ii[178]0))bs%(i)[171]bu%;
  144. 1514 [153][163]13[171]20[172](ii[178]0))bw%(i);
  145. 1520 [139]ii[178]0[167][153]
  146. 1540 [139][194](214)[179]21[167]1500
  147. 1542 [153]"list";
  148. 1550 [129]j[178]0[164]1
  149. 1560 [158]ml[170]30,x1%(24[170]j),x2%(24[170]j),y1%(24[170]j),y2%(24[170]j),160,16[170]15
  150. 1570 [158]ml[170]12,x1%(24[170]j)[170]3,y1%(24[170]j)[170]1,mn$(24[170]j)
  151. 1580 [130]
  152. 1590 [151]mv[170]1,25
  153. 1600 [158]ml[170]9
  154. 1610 [139]cr%[179]24[167]1600
  155. 1612 [139]cr%[178]25[167]950
  156. 1618 [158]ml[170]30,0,39,1,21,32,0:[153]""
  157. 1620 [139]cr%[178]24[175]i[170]1[179]ht%[167]1500
  158. 1622 [139]cr%[178]24[167]1490
  159. 1650 :
  160. 1660 :[143] ls code
  161. 1670 :
  162. 1680 [158]ml[170]30,0,39,10,24,32,0
  163. 1688 [151]v[170]21,0
  164. 1690 [158]ml[170]54,"lsc.ls code",sd,170[172]256
  165. 1692 [151]v[170]21,1
  166. 1700 [139][200](e$,2)[178]"00"[167]1720
  167. 1710 [158]ml[170]30,8,32,15,16,160,16[170]15:[158]ml[170]12,10,16,e$:[158]ml[170]24,200:[142]
  168. 1720 [151]f%[170]2[174]16,0
  169. 1730 [158]ml[170]63,0,39,10,23,15,12,170[172]256,"instructions to","the loadstar code"
  170. 1740 [142]
  171. 1750 :
  172. 1760 :[143] bible code
  173. 1770 :
  174. 1780 [158]ml[170]30,0,39,10,24,32,0
  175. 1788 [151]v[170]21,0
  176. 1790 [158]ml[170]54,"lsc.bible",sd,170[172]256
  177. 1792 [151]v[170]21,1
  178. 1800 [139][200](e$,2)[178]"00"[167]1820
  179. 1810 [158]ml[170]30,8,32,15,16,160,16[170]15:[158]ml[170]12,10,16,e$:[158]ml[170]24,200:[142]
  180. 1820 [151]f%[170]2[174]16,0
  181. 1830 [158]ml[170]63,0,39,10,23,15,12,170[172]256,"theory of","the bible code"
  182. 1840 [142]
  183. 1850 :
  184. 1860 :[143] load/codify screen
  185. 1870 :
  186. 1880 [158]ml[170]30,0,39,10,24,32,0
  187. 1890 [129]i[178]16[164]19:[151]198,0
  188. 1900 [158]ml[170]30,x1%(i),x2%(i),y1%(i),y2%(i),160,16[170]15
  189. 1910 [151]646,15:[158]ml[170]12,x1%(i)[170]1,y1%(i)[170]1,mn$(i)
  190. 1920 [130]
  191. 1930 [158]ml[170]30,x1%(20),x2%(20),y1%(20),y2%(20),160,16[170]15
  192. 1940 [158]ml[170]12,x1%(20)[170]2,y1%(20)[170]1,"file in memory: "[170]fi$
  193. 1950 [158]ml[170]12,x1%(20)[170]4,y1%(20)[170]2,[196]([181](n%[173]256)[171](n%[179][177]0))[170]" pages"
  194. 1960 [158]ml[170]12,x1%(20)[170]17,y1%(20)[170]2,""[170][196](bu%)[170]" to"[170][196](en)
  195. 1970 [151]mv[170]1,19:[158]ml[170]39,232
  196. 1980 [151]v[170]21,1
  197. 1990 [158]ml[170]9
  198. 2000 [139]cr%[179]16[176]cr%[177]19[167]1980
  199. 2010 [145]cr%[171]15[137]2050,2240,2350,2480
  200. 2020 :
  201. 2030 :[143] load n codify
  202. 2040 :
  203. 2050 [158]ml[170]30,0,39,10,24,32,0
  204. 2052 [151]v[170]21,0
  205. 2060 [158]ml[170]60,"$:*",sd,208[172]256
  206. 2062 [151]v[170]21,1
  207. 2070 [158]ml[170]63,5,255,10,24,15,7,208[172]256,t$,b$
  208. 2080 [139]w$[178]""[167][158]ml[170]42,232:[137]1980
  209. 2090 fi$[178]f$
  210. 2100 [158]ml[170]30,0,39,10,24,32,0
  211. 2110 [158]ml[170]30,12,28,15,17,160,16[170]15
  212. 2120 [158]ml[170]12,14,16,"bytes:"
  213. 2128 [151]v[170]21,0
  214. 2130 [158]cd,fi$,sd,bu%
  215. 2138 [151]v[170]21,1
  216. 2140 [158]ml[170]24,100
  217. 2150 n%[178][194](251)[170]256[172][194](252)
  218. 2152 en[178]bu%[170]n%
  219. 2160 [158]ml[170]42,232
  220. 2170 [158]ml[170]12,x1%(20)[170]18,y1%(20)[170]1,""[170]fi$
  221. 2180 [158]ml[170]12,x1%(20)[170]4,y1%(20)[170]2,[196]([181](n%[173]256)[171](n%[179][177]0))[170]" pages"
  222. 2190 [158]ml[170]12,x1%(20)[170]17,y1%(20)[170]2,""[170][196](bu%)[170]" to"[170][196](en)
  223. 2200 [137]1980
  224. 2210 :
  225. 2220 :[143] load coded file
  226. 2230 :
  227. 2240 [158]ml[170]30,0,39,10,24,32,0
  228. 2248 [151]v[170]21,0
  229. 2250 [158]ml[170]60,"$:c.*",sd,208[172]256
  230. 2258 [151]v[170]21,1
  231. 2260 [158]ml[170]63,5,255,10,24,15,7,208[172]256,t$,b$
  232. 2270 [139]w$[178]""[167][158]ml[170]42,232:[137]1980
  233. 2280 fi$[178]f$
  234. 2288 [151]v[170]21,0
  235. 2290 [158]ml[170]54,fi$,td,bu%:n%[178]f%[171]bu%:en[178]f%
  236. 2298 [151]v[170]21,1
  237. 2300 [158]ml[170]42,232
  238. 2310 [137]1930
  239. 2320 :
  240. 2330 :[143] save coded file
  241. 2340 :
  242. 2350 [151]v[170]21,0
  243. 2360 [158]ml[170]12,x1%(20)[170]2,y1%(20)[170]1,"     filename: waitc.              "
  244. 2370 [158]ml[170]12,x1%(20)[170]19,y1%(20)[170]1,""
  245. 2380 [151]198,0:[158]ml[170]51,15,1,14
  246. 2390 [139]w$[178]""[167][142]
  247. 2392 fi$[178]"c."[170]w$
  248. 2400 [158]ml[170]57,"s0:"[170]fi$,td
  249. 2410 [158]57812fi$,td:[151]193,0:[151]194,64
  250. 2420 [151]174,(en)[171][181]((en)[173]256)[172]256
  251. 2430 [151]175,[181]((en)[173]256)
  252. 2440 [158]62954
  253. 2450 [158]ml[170]24,100
  254. 2460 [158]ml[170]42,232
  255. 2470 [137]1940
  256. 2480 [142]
  257. 2490 :
  258. 2500 :[143] drive navigation
  259. 2510 :
  260. 2520 [158]ml[170]30,0,39,10,24,32,0
  261. 2530 [129]i[178]7[164]14:[151]198,0
  262. 2540 [158]ml[170]30,x1%(i),x2%(i),y1%(i),y2%(i),160,16[170]15
  263. 2550 [151]646,15:[158]ml[170]12,x1%(i)[170]1,y1%(i)[170]1,mn$(i)
  264. 2560 [130]
  265. 2570 [158]ml[170]12,x1%(15),y1%(15),"print#":[139]dq[167][153]" target ":[137]2590
  266. 2580 [153]" source "
  267. 2590 [151]mv[170]1,15
  268. 2600 [158]ml[170]12,9,12,"list   cmdcmdcmd"[170][196](sd)
  269. 2610 [158]ml[170]12,28,12,"   cmdcmdcmd"[170][196](td)
  270. 2620 [158]ml[170]9
  271. 2630 [139]cr%[179]9[176]cr%[177]15[167]2620
  272. 2640 [145]cr%[171]8[137]2650,2690,2730,2770,2820,2810,2910
  273. 2650 sd[178]sd[170]1:[139]sd[177]29[167]sd[178]8
  274. 2660 [159]15,sd,15:[160]15
  275. 2670 [139]st[179][177]0[167]2650
  276. 2680 [137]2600
  277. 2690 sd[178]sd[171]1:[139]sd[179]8[167]sd[178]29
  278. 2700 [159]15,sd,15:[160]15
  279. 2710 [139]st[179][177]0[167]2690
  280. 2720 [137]2600
  281. 2730 td[178]td[170]1:[139]td[177]29[167]td[178]8
  282. 2740 [159]15,td,15:[160]15
  283. 2750 [139]st[179][177]0[167]2730
  284. 2760 [137]2600
  285. 2770 td[178]td[171]1:[139]td[179]8[167]td[178]29
  286. 2780 [159]15,td,15:[160]15
  287. 2790 [139]st[179][177]0[167]2770
  288. 2800 [137]2600
  289. 2810 [151]186,dv:[142]
  290. 2820 [158]ml[170]12,x1%(13)[170]1,y1%(13)[170]2,"@wait                        "
  291. 2830 [158]ml[170]12,x1%(13)[170]2,y1%(13)[170]2,""
  292. 2840 [158]ml[170]51,15,1,23
  293. 2850 [158]ml[170]57,w$,dc:[151]186,dv
  294. 2860 [158]ml[170]12,x1%(13)[170]1,y1%(13)[170]2,""
  295. 2870 [153]e$
  296. 2880 [158]ml[170]24,100
  297. 2890 [158]ml[170]30,x1%(13)[170]1,x1%(13)[170]25,y1%(13)[170]2,y1%(13)[170]2,160,15
  298. 2900 [137]2620
  299. 2910 dq[178]1[171]dq:[158]ml[170]12,x1%(15),y1%(15),"print#"
  300. 2920 [139]dq[167]dc[178]td:[153]" target ":[137]2940
  301. 2930 dc[178]sd:[153]" source "
  302. 2940 [137]2620
  303. 2950 :
  304. 2960 :[143] quit
  305. 2970 :
  306. 2980 [158]ml[170]30,x1%(6),x2%(6),y1%(6),y2%(x),160,16[170]15
  307. 2990 [158]ml[170]12,x1%(6)[170]3,y1%(6)[170]1,"click herecmdcmdcmdcmdcmdcmdcmdcmdcmdcmdto confirm"
  308. 3000 [158]ml[170]9
  309. 3010 [139]l2%[178]0[167]3000
  310. 3020 [139]cr%[178]6[167][151]v[170]21,0:[153]"load":[158]ml[170]3:[137]40000
  311. 3030 [142]
  312. 10000 d[178][194](186):n$[178]"0:b.ls code":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  313. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  314. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  315. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  316. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  317. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  318. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  319. 40060 [130]:[142]
  320. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  321. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  322. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  323. 60000 [153]"load":z$[178]" print#                                      ":[151]214,10:[153]
  324. 60010 [153]" listfrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefre":[129]i[178]0[164]11:[153]z$:[130]
  325. 60020 [153]" pokeposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposposprint#"
  326. 60030 z$(0)[178]"(NULL) left$ val   (NULL) (NULL) atn str$ (NULL) (NULL) atn (NULL)   len (NULL) str$ val
  327. 60040 z$(2)="by [203]nees [195]alhoon
  328. 60050 z$(4)[178]"(c) 1998 by mid$ & asc (NULL)ublishing, right$nc."
  329. 60060 z$(6)[178]"(NULL)his program is not shareware
  330. 60070 z$(7)="or in the public domain."
  331. 60080 z$(9)="1-800-594-3370 or 1-318-221-8718
  332. 60090 [151]214,12:[153]:[129]i[178]0[164]9:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  333.